
. BEATLE QUIZ

   1 .
   2 . BEATLE QUIZ
   3 . BY ROB ROSENHOUSE
   4 . FOR SUPER SOFTWARE
   5 .
   6 . (C) 1980
   7 .
   9 :RETURN ;CLEAR ;NT=0;BC=125;FC=0;GOSUB 10000;S=0;GOTO 1000
  10 CY=-24;INPUT " ANSWER: "B;FOR C=1TO 500;NEXT C;CX=0;CY=-24;PRINT #2,A
  20 IF A=B&(21)=31;FOR C=200TO 0STEP -10;&(19)=C;NEXT C;&(21)=0;S=S+100
  25 IF A#B&(21)=31;&(19)=200;FOR C=1TO 300;NEXT C;&(21)=0
  30 CY=-39;PRINT "SCORE: ",#4,S
  35 FOR D=1TO 750;NEXT D
  40 BOX 0,5,160,78,2;RETURN 
1000 PRINT "WHICH BEATLE WORE GLASSES?
1010 PRINT ;PRINT " 1> PAUL",;CX=0;PRINT " 3> JOHN
1020 PRINT " 2> RINGO",;CX=0;PRINT " 4> GEORGE
1030 A=3;GOSUB 10
1100 PRINT "HOW MANY YEARS AGO DID    SGT. PEPPER TEACH THE BANDTO PLAY?
1110 PRINT ;PRINT " 1> 7",;CX=0;PRINT " 3> 14
1120 PRINT " 2> 20",;CX=0;PRINT " 4> 18
1130 A=2;GOSUB 10
1200 PRINT "WHAT WAS THE LAST BEATLE  ALBUM RELEASED?
1210 PRINT ;PRINT " 1> LET IT BE
1220 PRINT " 2> ABBEY ROAD
1230 PRINT " 3> HELP!
1240 A=1;GOSUB 10
1300 PRINT "WHAT DID JOHN SAY AT THE  END OF STRAWBERRY FIELDS  FOREVER?
1310 PRINT ;PRINT " 1> I'M VERY BORED!
1320 PRINT " 2> CRANBERRY SAUCE.
1330 PRINT " 3> I BURRIED PAUL!
1340 A=3;GOSUB 10
1400 PRINT "HOW LONG WAS A BEATLE     WEEK?
1410 PRINT ;PRINT " 1> 2 DAYS",;CX=0;PRINT " 3> 5 DAYS
1420 PRINT " 2> 7 DAYS",;CX=0;PRINT " 4> 8 DAYS
1430 A=4;GOSUB 10
1500 PRINT "RINGO SANG LEAD IN WHAT   SONG?
1510 PRINT ;PRINT " 1> WITH A LITTLE HELP        FROM MY FRIENDS
1520 PRINT " 2> ALL MY LOVING
1530 PRINT " 3> HELP
1540 A=1;GOSUB 10
1600 PRINT "WHAT GROUP OF THE 60'S    TRIED TO IMITATE THEM?
1610 PRINT ;PRINT " 1> THE FOUR SEASONS
1620 PRINT " 2> THE MONKIES
1630 PRINT " 3> THE BEACH BOYS
1640 A=2;GOSUB 10
1700 PRINT "THE BEATLES WERE BANNED DOTO WHOSE RELIGOUS REMARK?
1710 PRINT ;PRINT " 1> JOHN",;CX=0;PRINT " 3> GEORGE
1720 PRINT " 2> PAUL",;CX=0;PRINT " 4> RINGO
1730 A=1;GOSUB 10
1800 CLEAR ;CX=-24;PRINT "GAME OVER
1810 PRINT ;PRINT "FINAL SCORE: ",#4,S
1820 CY=-32;PRINT "TO TRY AGAIN, PRESS GO!
1830 IF &(23)=1RUN 
1840 GOTO 1830
10000 &(10)=110;CY=-16;NT=10;FOR A=1TO 2;PRINT "56080800070006000";NEXT A
11000 PRINT "56080800070006000800000
11010 NT=0;CLEAR ;&(10)=180;CY=0;CX=-15;PRINT "BEATLE
11020 CX=-9;PRINT "QUIZ
11030 FOR A=1TO 1500;NEXT A;CLEAR ;RETURN 

:RETURN 
>